/*  Small compiler - Error message system
 *  In fact a very simple system, using only 'panic mode'.
 *
 *  Copyright (c) ITB CompuPhase, 1997-2003
 *
 *  This software is provided "as-is", without any express or implied warranty.
 *  In no event will the authors be held liable for any damages arising from
 *  the use of this software.
 *
 *  Permission is granted to anyone to use this software for any purpose,
 *  including commercial applications, and to alter it and redistribute it
 *  freely, subject to the following restrictions:
 *
 *  1.  The origin of this software must not be misrepresented; you must not
 *      claim that you wrote the original software. If you use this software in
 *      a product, an acknowledgment in the product documentation would be
 *      appreciated but is not required.
 *  2.  Altered source versions must be plainly marked as such, and must not be
 *      misrepresented as being the original software.
 *  3.  This notice may not be removed or altered from any source distribution.
 *
 *  Version: $Id: embryo_cc_sc5.c 56354 2011-01-29 03:19:51Z raster $
 */

#ifdef HAVE_CONFIG_H
# include <config.h>
#endif

#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include <string.h>

#ifndef _MSC_VER
# include <unistd.h>
#endif

#include "embryo_cc_sc.h"
#include "embryo_cc_sc5.scp"

static int errflag;
static int errstart; /* line number at which the instruction started */

/*  error
 *
 *  Outputs an error message (note: msg is passed optionally).
 *  If an error is found, the variable "errflag" is set and subsequent
 *  errors are ignored until lex() finds a semicolumn or a keyword
 *  (lex() resets "errflag" in that case).
 *
 *  Global references: inpfname   (referred to only)
 *                     fline      (referred to only)
 *                     fcurrent   (referred to only)
 *                     errflag    (altered)
 */
int error(int number, ...) {
	static int lastline, lastfile, errorcount;
	char *msg;
	va_list argptr;
	char string[1024];
	int start;

	/* errflag is reset on each semicolon.
	 * In a two-pass compiler, an error should not be reported twice. Therefore
	 * the error reporting is enabled only in the second pass (and only when
	 * actually producing output). Fatal errors may never be ignored.
	 */
	if (((errflag) || (sc_status != statWRITE))
			&& ((number < 100) || (number >= 200)))
		return 0;

	if (number < 100) {
		msg = errmsg[number - 1];
		errflag = TRUE; /* set errflag (skip rest of erroneous expression) */
		errnum++;
	} else if (number < 200) {
		msg = fatalmsg[number - 100];
		errnum++; /* a fatal error also counts as an error */
	} else {
		msg = warnmsg[number - 200];
		warnnum++;
	}

	strexpand(string, (unsigned char *) msg, sizeof string, SCPACK_TABLE);

	va_start(argptr, number);

	start = (errstart == fline) ? -1 : errstart;

	if (sc_error(number, string, inpfname, start, fline, argptr)) {
		sc_closeasm(outf);
		outf = NULL;
		longjmp(errbuf, 3);
	}

	va_end(argptr);

	if (((number >= 100) && (number < 200)) || (errnum > 250)) {
		va_start(argptr, number);
		sc_error(0, "\nCompilation aborted.", NULL, 0, 0, argptr);
		va_end(argptr);

		if (outf) {
			sc_closeasm(outf);
			outf = NULL;
		} /* if */
		longjmp(errbuf, 2); /* fatal error, quit */
	} /* if */

	/* check whether we are seeing many errors on the same line */
	if (((errstart < 0) && (lastline != fline)) || (lastline < errstart)
			|| (lastline > fline) || (fcurrent != lastfile))
		errorcount = 0;
	lastline = fline;
	lastfile = fcurrent;
	if (number < 200)
		errorcount++;
	if (errorcount >= 3)
		error(107); /* too many error/warning messages on one line */
	return 0;
}

void errorset(int code) {
	switch (code) {
	case sRESET:
		errflag = FALSE; /* start reporting errors */
		break;
	case sFORCESET:
		errflag = TRUE; /* stop reporting errors */
		break;
	case sEXPRMARK:
		errstart = fline; /* save start line number */
		break;
	case sEXPRRELEASE:
		errstart = -1; /* forget start line number */
		break;
	default:
		break;
	}
}
